home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 189
- Top = 103
- Width = 499
- Height = 382
- Caption = 'Form1'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object ImageTrue: TImage
- Left = 214
- Top = 284
- Width = 84
- Height = 19
- Picture.Data = {<image000.bmp>}
- end
- object ImageFalse: TImage
- Left = 178
- Top = 264
- Width = 85
- Height = 20
- Picture.Data = {<image001.bmp>}
- end
- object DBNavigator1: TDBNavigator
- Left = 97
- Top = 236
- Width = 241
- Height = 25
- DataSource = DataSourceGridData
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object DBGrid1: TDBGrid
- Left = 0
- Top = 8
- Width = 465
- Height = 223
- DataSource = DataSourceGridData
- TabOrder = 1
- TitleFont.Color = clWindowText
- TitleFont.Height = -13
- TitleFont.Name = 'System'
- TitleFont.Style = []
- OnColExit = DBGrid1ColExit
- OnDrawDataCell = DBGrid1DrawDataCell
- OnKeyPress = DBGrid1KeyPress
- end
- object DBLookupCombo1: TDBLookupCombo
- Left = 4
- Top = 244
- Width = 121
- Height = 25
- TabStop = False
- DataField = 'CustNo'
- DataSource = DataSourceGridData
- LookupSource = DataSourceCust
- LookupDisplay = 'Company'
- LookupField = 'CustNo'
- DropDownWidth = 200
- TabOrder = 2
- end
- object DBCheckBox1: TDBCheckBox
- Left = 30
- Top = 278
- Width = 91
- Height = 17
- TabStop = False
- Alignment = taLeftJustify
- DataField = 'CheckBox'
- DataSource = DataSourceGridData
- ParentColor = False
- TabOrder = 3
- ValueChecked = 'True'
- ValueUnchecked = 'False'
- OnClick = DBCheckBox1Click
- end
- object DBComboBox1: TDBComboBox
- Left = 338
- Top = 230
- Width = 145
- Height = 24
- DataField = 'ShipVIA'
- DataSource = DataSourceGridData
- ItemHeight = 16
- Items.Strings = (
- 'UPS'
- 'DHL'
- 'Emery'
- 'US Mail'
- 'FedEx')
- TabOrder = 4
- end
- object TableGridData: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'GRIDDATA.DB'
- Left = 4
- Top = 18
- object TableGridDataOrderNo: TFloatField
- DisplayWidth = 8
- FieldName = 'OrderNo'
- end
- object TableGridDataCustNo: TFloatField
- DisplayLabel = 'DBLookupCombo'
- DisplayWidth = 18
- FieldName = 'CustNo'
- Required = True
- end
- object TableGridDataShipVIA: TStringField
- DisplayLabel = 'DBCombo'
- DisplayWidth = 13
- FieldName = 'ShipVIA'
- Size = 7
- end
- object TableGridDataCheckBox: TBooleanField
- DisplayWidth = 10
- FieldName = 'CheckBox'
- end
- end
- object DataSourceGridData: TDataSource
- DataSet = TableGridData
- Left = 2
- Top = 40
- end
- object TableCust: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'CUSTOMER.DB'
- Left = 2
- Top = 76
- end
- object DataSourceCust: TDataSource
- DataSet = TableCust
- Left = 4
- Top = 102
- end
- end
-